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Para completar nosso jogo de 
vinte-e-um, só falta ensinar o 
computador a fazer as vezes da banca. 
É hora, portanto, de se preparar para 
enfrentá-lo: conheça as regras do jogo. 


Antes de passar à última seção do 
programa, convém conhecer as regras 
do jogo. 

O vinte-e-um utiliza um baralho com 
52 cartas. As cartas que vão do 2 ao 10 
têm valor igual ao seu número. As fi- 
guras valem 10 pontos e o ás pode valer 
1 ou 11, conforme a decisão do jogador. 
Em nosso jogo, o computador calcula 
os pontos automaticamente. 


Joga-se, em geral, com dinheiro ou 
fichas. Nosso computador é programa- 
do para marcar os pontos com fichas. 
Cabe a ele desempenhar o papel da ban- 
ca, sendo sempre quem dá as cartas. 

No início do jogo, o computador em- 
baralha as cartas e distribui duas, vira- 
das para baixo (“fechadas”). A carta do 
jogador aparece “aberta”” na tela, mas 
o programa foi feito de modo que o 
computador não conheça as cartas do 
jogador. Este faz sua aposta, antes que 
ele e a banca recebam outra carta. 

O objetivo do jogo é ter uma mão 
melhor que a da banca, isto é, um maior 
número de pontos na soma das cartas. 
Quem tiver um total maior que 21, estou- 
rou, perdendo a aposta. Com um total 
entre 16 e 21, o jogador só ganha da 
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banca se esta possuir um total menor, 
ou se tiver estourado. Assim, a banca 
tem sempre a vantagem do empate. 
Existem duas mãos especiais — o 
“natural”: um ás e um dez ou um ás e 
uma figura, somando 21 em duas car- 
tas; e a ''mão de cinco”: uma mão com 
cinco cartas, cujo total é igual ou infe- 
rior a 21, Um natural do jogador ganha 
de qualquer mão da banca, exceto de 
outro natural. Uma mão de cinco tam- 
bém ganha de qualquer coisa, menos de 
um natural ou outra mão de cinco. 


COMO FUNCIONA O PROGRAMA 


Depois que o jogador recebeu a se- 
gunda carta, o programa verifica se ele 








conseguiu um natural. Se não conse- 
guiu, mas obteve um total maior ou 
igual a 16, e está satisfeito com este va- 
lor, ele pode “parar”, não recebendo 
mais cartas. A vez de jogar passa; en- 
tão, à banca. Se obteve um total infe- 
rior a 16, ou não está satisfeito com o 
valor de sua mão, pode receber mais car- 
tas pelo ato de “pedir” ou de **com- 
prar”. No jogo normal, quando se com- 
pra uma carta, a aposta original é do- 
brada e a banca dá a carta fechada. Na 
nossa versão computadorizada, não há 
diferença entre cartas fechadas ou aber- 
tas, e pedir cartas não dobra a aposta, 
pois todas são dadas abertas. O jogador 
não poderá comprar depois de ter pedi- 
do alguma carta e, ao chegar na quinta 
carta, só poderá pedir. Após cada carta 
fornecida, o computador verifica se O 
jogador ou a banca ultrapassaram os 21 
pontos. 

Quando o jogador estoura, a banca 
ganha a aposta e não precisa jogar. 


Quando ele tem 21 ou menos, a banca 
mostra suas duas cartas e decide se pe- 
de mais cartas ou pára por ali. Se as 
duas cartas da banca são um natural, ela 
ganha a aposta. Caso contrário, a ban- 
ca pede mais cartas até ficar satisfeita 
com o total, conseguir uma mão de cin- 
co ou então estourar — para alegria do 
jogador. 

Se a banca pára com um total menor 
que 21 e sem ter obtido uma mão de cin- 
co, surge na tela a mensagem: a BAN- 
CA PAGA... totais que tenham um 
ponto a mais que o valor de sua mão. 
Se a mão da banca for 21, a mensagem 
NATURAIS E MAOS DE CINCO 
APENAS é mostrada. E, caso obtenha 
uma mão de cinco, o jogador é infor- 
mado: APENAS NATURAIS. No jo- 
go convencional, cada jogador declara- 
ria O valor de sua mão, se tivesse venci- 
do a banca. Na nossa versão, o compu- 
tador soma as cartas do jogador para sa- 
ber seu total. Se o jogador tiver um to- 


tal maior ou igual ao que a banca paga, 
ele vence; se tiver menos, perde. Quan- 
do vence, a banca paga um valor igual 
a sua aposta, ou seja, ele recebe o do- 
bro do que apostou. Nenhuma ficha ex- 
tra é paga a naturais ou mãos de cinco, 
e não é permitido blefar. 

O jogador também não pode dar as 
cartas nem fazer papel de banca — no 
jogo convencional a banca pertence a 
quem consegue um natural. Resta, as- 
sim, ao jogador, a dificil tarefa de que- 
brar a banca, o que ocorre quando ele 
consegue acumular mais de 1 000 fichas. 
No início da partida, o jogador recebe 
100 fichas e, caso perca todas, perde 
também o jogo. 


Carregue as duas seções iniciais do 
programa e acrescente as linhas seguin- 
tes para completar seu jogo. 


2500 PAUSE 50 


a o O = E sind É a 


o T— 








2510 LET DPF=B: LET AF=B: LET X 


=C: LET Y=10 

2520 FOR J=C TO 2 

2530 LET Z=0(J): GOSUB 5500 
2540 IF VA>IO THEN LET VA=10 
2545 FOR K=C TO 2: LET W(K) =W(K 
J+VA: NEXT K 

2546 IF VA=C AND AF=B THEN LET 
W(2)=W(2)+10: LET AF=C 


2550 LET X=X+6: NEXT J 
2560 IF W(2)=21 THEN PRINT PA 
PER 2; INK 7;AT 14,18,” NATURAL 
| ";AT 15,16;” A BANCA GANHA ”: 
LET DPF=C: GOTO 2000 
2600 IF PF=C THEN GOTO 2720 
2610 PAUSE 75 
2630 IF W(C)>21 THEN PRINT PA 
PER C; INK 7;AT 21,B;” A BANCA 
ESTOURA! ";: GOTO 2740 
2635 IF W(2)221 THEN 
WC) 
2640 
2650 
2660 
"1670 
:700 


LET W(2)= 


IF W(2)<16 THEN GOTO 2800 
IF FF=C THEN GOTO 2800 
LET PR=(W(2)-B)/13 

IF PR<RND THEN GoTo 2800 
IF W(2)>21 THEN LET W(2)= 





W(C) 
2710 IF W(2)=21 THEN PRINT AT 
20,B;” A BANCA PAGA SOMENTE NAT 


URAIS E MAOS DE CINCO”: GOTO 
2000 
2720 PRINT PAPER Z:;AT 21,B;" À 


BANCA OBTEVE ":W(2)+C; 

2725 IF S(2)>21 THEN LET S(2)= 
S(C) 

2730 IF W(2)>=5(2) THEN 

PAPER 2;” E GANHOU! *: 
00 
27/40 
Ou 4 
Ô 
2800 
2805 
2810 
J+VA: 


PRINT 
GOTO 20 


PRINT 
LET 


PAPER 2;" VOCE GANH 
CP=CP+BET*2Z: GOTO 200 


GOSUB 5500 
LET VA=10 
LET W(K) =W(K 


LET Z=C(CC): 
IF VA>10 THEN 
FOR K=C TO 2: 
NEXT K 

2820 IF VA=C AND AF=B THEN 
W(Z)=W(2)+10: LET AF=C 
2822 IF W(1)<22 AND X=25 THEN 
PRINT PAPER 2; INK Z;AT 21,B;” 
MAO DE CINCO! ”: GOTO 2000 
2825 GOSUB 7000 

2830 LET X=X+6: GOTO 2610 


A linha 2500 provoca um segundo de 
pausa e, então, o programa inicia a jo- 
gada da banca. A 2510 coloca zero no 
sinalizador de naturais e no sinalizador 
de ases da banca, e acerta as coordena- 
das da primeira carta. 


LET 





DISTRIBUIÇÃO DAS CARTAS 





As duas cartas iniciais são “viradas” 
pelo FOR... NEXT entre as linhas 2520 
e 2550; a linha 2530 mostra as cartas. 
A 2540 atribui o valor dez às cartas de 
figuras, antes que a 2545 some seu va- 
lor com o total da banca (dois totais, se 
houver um ás). A 2546 soma dez a W(2), 
se uma das cartas for um ás, e coloca 
| no indicador de ases. A linha acerta 
a posição da próxima carta. 

A linha 2560 verifica se foi obtido um 
natural, anunciando a vitória da banca, 
se for o caso. O indicador de naturais 
da banca passa a valer 1. Se o jogador 
também tem um natural — linha 2600 
—, O programa vai à rotina que cuida 
das mensagens: ''quem tem o que” e 
“quem venceu”. Após a pausa da linha 
2610, a linha 2630 verifica se a banca es- 
tourou; em caso afirmativo, surge a 
mensagem A BANCA ESTOUROU. A 
linha 2635 verifica se o maior dos totais 
— quando há um ás — excedeu 21. O 
programa só considera o menor total, 
Se a banca tiver menos de 16 pontos, a 
linha 2800 vira outra carta. 





QUER MAIS CARTAS? 


As linhas 2660 e 2670 decidem se a 
banca quer outra carta. Não há regra fi- 


xa para isso. Não vale a pena impor um 
limite acima do qual a banca não pede 
mais cartas, pois ela se tornará previ- 
sível e o jogador logo saberá como 
derrotá-la. É necessário introduzir um 
fator de incerteza (como fazemos aqui), 
que torne impossível prever quando a 
banca vai parar de pedir cartas. 

Para isso, o programa deverá fazer 
o computador se comportar de manei- 
ra semelhante a um ser humano. 
Coloque-se no lugar da banca: tendo um 
total de 20 pontos, você se sentiria me- 
nos inclinado a pedir outra carta do que 
se tivesse 16. Quando o computador 
compara PR com um número randômi- 
co, introduz-se um fator de incerteza e, 
ao mesmo tempo, a decisão passa a de- 
pender do valor da mão da banca. 


O RESULTADO FINAL 





A linha 2700 troca o valor de W(2) pe- 
lo de W(]1), se W(2) contiver mais de 21. 
Se a banca conseguir 21 pontos, a linha 
2710 imprime na tela a mensagem A 
BANCA PAGA SOMENTE NATU- 
RAIS E MÃOS DE CINCO. Caso pos- 
sua uma mão inferior a 21, a linha 2720 
escreve A BANCA OBTEVE, seguido 
de um valor um ponto mais alto que o 
total alcançado pela banca. 

A linha 2730 compara o total do jo- 
gador com o da banca. Quando esta 
vence, a linha 2730 informa o fato; ca- 
so contrário, a linha 2740 anuncia a vi- 
tória do jogador e calcula o novo total 
de fichas. 

A parte final do programa — linhas 
2800 a 2830 — cuida da distribuição das 
cartas da banca. 

A linha 2805 atribui dez pontos às 
cartas de figura. O valor da carta é so- 
mado ao de W(1) e W(2) na linha 2810. 
Se houver um ás, à linha 2820 cabe exe- 
cutar as alterações necessárias antes que 
a linha 2822 verifique se se conseguiu 
uma mão de cinco. À linha 2825 ajusta 
o monte de cartas, preparando uma no- 
va distribuição. A linha 2830 calcula a 
posição onde a carta vai ser desenhada. 


E bh 


Apague o GOTO 86 do final da linha 
650 e adicione as linhas seguintes: 


500 GOSUB 4000:GOTO 540 

510 CX=CX+32:GOSUB 3500:NC=NC+1 
530 IF DL>21 THEN 620 

540 DT=DL+10* (DA AND(DL<12)):IF 
DT=21 AND NC=2 THEN GOSUB 5000 
: PRINT$L,"A BANCA TEM UM NATURA 
L” :GOSUB 5500:GOTO 610 

550 IF NC=5 THEN GOSUB 5000:PRI 


us 





NT41L,"A BANCA TEM UMA MÃO DE CI 

NCO”:GOSUB 5500:G0TO 610 

560 R=20-DT:IF RND(1)*100<R*R*R 
OR DT<l6 OR PS=1 THEN 510 

570 GOSUB 5000:IF P5=1 THEN PRI- 

NT41,"VOCÊ TEM UMA MÃO DE CINCO 
" ELSE PRINT$41,"Você tem”; PT 
580 GOSUB 5500:GOSUB 5000: PRESE 

T(B,80): PRINT$41,"A banca paga 8 

omente”;: PRESET(8,92):IF DTC<21 

THEN PRINTt&l,"totais maiores ou 
iguais a";DT+1 ELSE PRINT41,"n 

aturais e mãos de cinco” 

590 GOSUB 5500:IF P5=1 THEN 630 

600 IF DT<PT THEN 630 

610 GOSUB 5000:PRINT41,"A banca 
venceu” :GOSUB 5500:GOTO 690 
620 GOSUB 5000:PRINT41,"A banca 
estourou. Você venceu” :GOSUB 5 
S00:G0TO 640 

630 GOSUB 5000:PRINT+1,"Você ve 
nceu”" :GOSUB 5500 

640 MN=MN+2*BT:GOSUB 
7000:G0TO 700 

650 GOSUB 5000: PRINT41,"VOCÊE TE 
M UM NATURAL” :PF=1:GOSUB 5500 
660 GOSUB 4000:TF DL=11 THEN GO 
SUB 5000:PRINT41,"MAS A BANCA T 
EM UM TAMBEM" :GOSUB 5500:GOTO 6 
10 

670 GoToO 630 

690 IF MN<l THEN GOSUB 5000:PRIT 
NT41l,"Suas fichas acabaram” :GOS 
UB 5500:G0OToO 790 

700 IF PF=1 THEN GOSUB 5000:PRI 
NT41,"Embaralhando as cartas":G 
OSUB 5500:GOSUB 1500:GOTO 750 
710 NE=N-1:IF NA>N THEN NF=N+51 
720 FOR X=NF TO NA+1 STEP -1:Q= 
INT((X-NA) +NA) :T=50(X) :50 (4) =50 
(0) :S0(0)=T:NEXT:TF NAN THEN 7 
40 

730 FOR X=0 TO 9:50(X+52)=5Q(X) 
*“NEXT:GOTO 750 

740 FOR X=0 TO 9:50(X) =50(X+52) 
“NEXT 

790 GOSUB 5000: PRINT+AI,"Quer 30 

gar novamente (8/N)?":CLOSE1 

B00 AS=INKEYS:IF AS<>2"N" AND AS 

<>"N” THEN 800 

810 IF A$="S”" THEN RUN 

B20 COLOR 15,4,4:END 

3500 GOSUB 1000:GOSUB 2000:TF N 

M=1 THEN DAs=1 

3510 IF NM>10 THEN DL=DL+10 ELS 

E DL=DL+NM 

3520 RETURN 

4000 NN=N:N=Dl:CX=31:€CY=105:G05 

UB 3500 

4010 N=D2:CX=63:GOSUB 3500:N=NN 

4020 NC=2:RETUBN 


Antes da banca jogar, vêem-se na te- 
la a mão do jogador e as duas cartas da 
banca fechadas. A banca abre, então, 
suas cartas — a linha 500 chama a sub- 
rotina 4000. Esta abre a primeira carta, 
chamando inicialmente outra sub- 
rotina, da linha 3500, que cuida do de- 
senho das cartas e calcula os pontos da 
banca. Na linha 4010 a segunda carta é 


5000: GOSUB 


4 aberta, chamando-se a sub-rotina nova- 
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mente, depois que a posição horizontal 
da carta foi modificada. O número da 
carta é atualizado e a sub-rotina termi- 
na na linha 4020. 

A linha 510 muda e acerta a posição 
horizontal da carta seguinte e chama a 
sub-rotina da linha 3500. Assim, a ban- 
ca recebe uma nova carta. A linha 530 
verifica se a banca ultrapassou 21 pon- 
tos; a linha 620 avisa o jogador, se for 
o caso. Se a banca conseguiu um natu- 
ral, o indicador de naturais da banca 
passa a valer 1 e o jogador recebe uma 
mensagem. A linha 550 detecta mãos de 
cinco. 





AS DECISÕES DA BANCA 


A parte mais interessante do progra- 
ma está na linha 560, que faz o compu- 
tador decidir se quer ou não mais car- 
tas. Seria mais fácil que a máquina pa- 
rasse de pedir cartas quando atingisse 
um determinado total — 19, por exem- 
plo. Porém, seria igualmente fácil para 
o jogador derrotar a banca, uma vez que 
soubesse do fato. É necessário, portan- 
to, introduzir um fator de incerteza na 
decisão do computador, tornando-a im- 
previsível. Isso não significa que se de- 
va programar uma estratégia suicida — 
fazendo, por exemplo, com que a ban- 
ca habitualmente peça mais cartas, já 
tendo 20 pontos. 

Criamos, então, uma variável R, 
igual a 20, menos os pontos da banca. 
A seguir, um número qualquer entre O 
e 100 é escolhido ao acaso e comparado 
com R*R*R. Se o número for menor, 
se a banca tiver menos de 16 pontos ou 
se o jogador conseguir uma mão de cin- 
co, o computador pede mais uma car- 
ta. O modo como calculamos R faz a 
chance da banca pedir mais cartas dimi- 
nuir à medida que seu total de pontos 
aumenta. Raramente ela pedirá mais 
cartas já tendo 19 pontos, mas quase 
sempre o fará quando ainda tiver 16. 

Usando o mesmo raciocínio e modi- 
ficando um pouco a linha 560, pode- 
mos, além de variar a dificuldade do jo- 
go, fazer com que a banca jogue 
baseando-se também nas cartas abertas 
do jogador, por exemplo. 


O RESULTADO FINAL 





A linha 570 mostra o valor da mão 
do jogador, apontando a ocorrência de 
uma mão de cinco, se for o caso. A li- 
nha 580 indica as mãos que vencem a 
banca. Se o jogador tiver uma mão de 
cinco e a banca não, a linha 590 exibe 
a mensagem VOCÊ VENCEU. De mo- 


e 





do semelhante, a linha 600 compara os 
totais do jogador e da banca, informan- 
do o resultado através da linha 610 ou 
da linha 630. 

Quando o jogador vence, a linha 640 
acrescenta as fichas ganhas às que o jo- 
gador já tinha. Sempre que alguém con- 
segue um natural, as cartas são emba- 
ralhadas. A linha 700 verifica o indica- 
dor de naturais e as linhas 710 a 740 em- 
baralham as cartas. 

Após o anúncio de que o jogador con- 
seguiu um natural, a linha 660 verifica 
se a banca obteve o mesmo tipo de mão. 
Em caso afirmativo, vence a banca e a 
linha 610 indica o resultado. Se o joga- 
dor ganhar, caberá à linha 670 informar 
o fato. 

Quando se acabam as fichas do jo- 
gador, a linha 690 diz VOCÊ PERDEU 
TODAS AS FICHAS. 

Finalmente, uma pequena rotina (li- 
nhas 790 a 820) oferece ao jogador a op- 
ção de jogar novamente. 








Apague o GOTO 190 do fim da linha 
650 e acrescente as linhas seguintes. 


500 GOSUB 4000: GOTO 540 

510 CX = CX + 54: GOSUB 3500:NC 
- NC+ 1 

520 FOR K = 1 TO 1700: NEXT K 
530 IF DL > 21 THEN 620 

940 DT = DL + 10 * (DA AND (DL 
<14)): IF DT = Zi ANDNC=ZT 


HEN TEXT : HOME : PRINT “A BAN 
CA TEM UM NATURAL" :PF = 1: GOTO 
610 


350) LE-NC = 5 THEN TEXT : HOM 
E : PRINT “A BANCA TEM UMA MAO 

DE CINCO": GOTO 610 

560 BR = 20 - DT: TF BND (L) * 

100 <R*R*RORA DT < 16 O0RP 
5 = 1 THEN 510 

70 TEXT : HOME : IF P5 = 1 TH 
EN PRINT "VOCE TEM UMA MÃO DE 

CINCO": GOTO 580 

575 PRINT PRINT "VOCÊ TEM "; 
PT 
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580 PRINT: 
A":;: IF DT < 21 THEN PRINT "V 
ALORES MAIORES OU IGUAIS A ";DT 
+ 1: GOTO 590 

585 PRINT "NATURAIS E MAOS DE 
CINCO APENAS" 

590 FOR K = 1 TO 500: NEXT: I 
F PS = 1 THEN 630 

600 IF DT < PT THEN 630 


610 PRINT PRINT "A BANCA GAN 
HOU”: GOTO 690 
620 TEXT HOME PRINT “A BAN 


CA ESTOUROU. VOCE GANHOU”: GOTO 
640 

630 PRINT : PRINT "VOCE GANHOU 
640 MN = MN + 2 * BT: GOTO 700 
660 GOSUB 4000: HOME : TEXT : 
IE DL = 11 THEN PRINT "MAS A B 
ANCA TEM A MESMA COISA”: GOTO 6 
10 

670 GOTO 630 

690 PRINT : IF MN< 1 THEN PR 
INT "VOCE PERDEN TODAS AS FICHA 
g”. GOTO 790 

700 IF PF = 1 THEN PRINT : PR 
INT "EMBARALHANDO AS CARTAS”: G 
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PRINT "A BANCA PAG 


OSUB 1500: GOTO 750 

10 NF = N- 1: IF NA > N THEN 

NF = N + 51 

720 FOR X = NF TO NA + 1 STEP 
- 1:00 = INT ( BND (1) * (X - 

NA)J) + NA:T = SQ(X):SQ(X) = S0( 

Q):5S0(0) = T: NEXT IF NA > WN 

THEN 740 

730 FOR X = O TO 9:50(X + 52) 

= SQ(X): NEXT : GOTO 750 

7/40 FOR X = O TO 9:50(X) = SQ( 

X + 52): NEXT 

790 PRINT : PRINT "QUER JOGAR 

NOVAMENTE (S/N) 7" 

BO0O GET AS: IF AS < > "S” AND 
AS < > "Nº THEN 800 

810 IF AS = "8º THEN 150 

B20 END 

3500 POKE - 16299,0: POKE - 

16304,0: GOSUB 1000: GOSUB 2000 
: IF NM = 1 THEN DA = 1 

3510 IF NM > 10 THEN DL = DL + 
10: GOTO 3520 

3515 DL = DL + NM 

3520 RETURN 

4000 NN = N:N = DI:CX = 6:CY = 
100: GOSUB 3500 
































4010 N = D2:CX = 60: GOSUB 3500 
“N = NN 

4020 FOR K = 1 TO 3500: NEXT : 
NC = 2: RETURN 


Como o programa completo é muito 
extenso, utilizamos a página gráfica 2. 
Nunca use a página 1, pois o programa 
será danificado. 

Quando a vez de jogar passa à ban- 
ca, as cartas do jogador e as duas car- 
tas fechadas do adversário aparecem na 
tela. A banca, em primeiro lugar, abre 
suas cartas — a linha 500 chama a sub- 
rotina 4000, que abre a primeira carta 
da banca chamando outra sub-rotina, 
da linha 3500. Esta sub-rotina liga o mo- 
do gráfico da página 2, sem apagar seu 
conteúdo, desenha a carta e calcula o to- 
tal de pontos. A linha 4010 abre a se- 
gunda carta, que chama a mesma sub- 
rotina após ter modificado a posição ho- 
rizontal da carta. O número da carta é 
atualizado e a sub-rotina termina na li- 
nha 4020. 

A linha 510 calcula a posição hori- 
zontal da nova carta e volta a chamar 
a sub-rotina 3500. Assim, a banca rece- 
be mais uma carta. A linha 520 provo- 
ca uma pausa antes que a linha 530 ve- 
rifique se a banca não ultrapassou os 21 
pontos — a linha 630 informa o fato, 
se necessário. A linha 540 verifica se a 
banca obteve um natural; em caso afir- 
mativo, coloca 1 no indicador de natu- 
rais e exibe uma mensagem na tela. A 
linha 550 detecta uma mão de cinco. 


AS DECISÕES DA BANCA 





A parte mais interessante do pro- 
grama está na linha 560, que faz o com- 
putador decidir se quer ou não mais 
cartas. Seria mais fácil programar a 
máquina de modo que parasse de pedir 
cartas sempre que atingisse um deter- 
minado valor — 19, por exemplo. Mas 
seria igualmente fácil para o jogador 
derrotá-la, uma vez que tivesse conhe- 
cimento dessa estratégia inflexível. É ne- 
cessário introduzir no programa um ele- 
mento de acaso, que torne as decisões 
da banca imprevisíveis. Não devemos, 
porém, programar o computador com 
uma estratégia suicida — que faça a 
banca pedir sempre mais cartas, já ten- 
do 20 pontos, por exemplo. 

Criamos, assim, uma variável R, 
igual a 20, menos o total de pontos da 
banca. Um número qualquer entre O e 
100 é escolhido e comparado com 
R*R*R. Se o número for menor, se a 
banca tiver menos de 16 pontos ou se o 


= jogador conseguir uma mão de cinco, O 


computador pede mais uma carta. A 
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maneira como calculamos R faz com 
que a chance da banca pedir cartas di- 
minua à medida que seu total de pon- 
tos aumenta. Raramente ela pede mais 
uma carta já tendo 19 pontos, mas quase 
sempre o fará quando ainda tiver 16. 


RESULTADO FINAL 





A linha 570 mostra o total de pontos 
do jogador. A linha 575 indica uma mão 
de cinco. As linhas 580 e 585 informam 
quais os tipos de mão que a banca está 
pagando. 

Se o jogador tiver uma mão de cinco 
e a banca não, a linha 590, após uma 
pequena pausa, exibe na tela VOCÊ 
GANHOU, De modo semelhante, a li- 
nha 600 compara os totais do jogador 
e da banca; o resultado é dado pelas li- 
nhas 610 ou 630, dependendo do 
vencedor. | 

Quando o jogador ganha, a linha 640 
acrescenta as fichas obtidas às que ele 
já possuía. Sempre que alguém conse- 
gue um natural, as cartas são embara- 
lhadas. A linha 700 verifica o indicador 
de naturais e as linhas 710 a 740 emba- 
ralham as cartas. 

A linha 660 entra em ação quando o 
jogador obtém um natural, verificando 
se a banca conseguiu a mesma coisa — 
neste caso, a banca ganha e o progra- 
ma segue na linha 610. Caso contrário, 
a 670 informa a vitória do jogador. 

A linha 690 avisa que as fichas do jo- 
gador acabaram. 

Finalmente, as linhas 790 a 820 
oferecem-lhe a opção de jogar outra vez. 


O programa completo é tão extenso 
que invade a primeira página — MA — 
da tela do TK-2000, Assim, para con- 
cluir o programa, as partes anteriores 
devem ser carregadas na página dois. 
Digite MP antes de carregar o programa 
— incompleto ou depois de terminado. 
Nunca volte à MA. 

As alterações que os usuários do 
TK-2000 devem fazer para completar 
seu jogo são as mesmas do Apple, com 
exceção das seguintes linhas (não se es- 
queça de apagar o GOTO 190 do final 
da linha 650): 


540 DT = DL + 10 * (DA AND (DL 
< 12)): IF DT = 21 AND NC = 2T 
HEN GOSUR 5000: PRINT "A BANCA 
TEM UM NATURAL” :PF = 1: GOSUB 
6000: GOTO 610 
550 IF NC = 5 THEN GOSUB 5000 
PRINT "A BANCA TEM UMA MÃO DE 
CINCO”: GOSUB 6000: GOTO 610 
570 GOSUB 5000: IF P5 = 1 THEN 





PRINT "VOCE TEM UMA MÃO DE CI 
NCO”": GOSUB 6000: GOTO 580 
575  GOSUB 5000: PRINT "VOCE TE 
M ";PT: GOSUB 6000 
580 GOSUB 5000: PRINT "A BANCA 


PAGA ";: IF DT < 21 THEN PRIN 
T "VALORES MAIORES OU IGUAIS A 
"DT + 1: GOSUB 6000: GOTO 590 
585 PRINT "NATURAIS E MAOS DE 
CINCO APENAS": GOSUB 6000 
610 GOSUB 5000: PRINT “A BANCA 

GANHOU”: GOSUB 6000: GOTO 690 
620 GOSUB 5000: PRINT "A BANCA 

ESTOUROU. VOCE GANHOU": GOSUB 
6000: GOTO 640 
630 GOSUB 5000: PRINT "VOCE GA 
NHOU”" : GOSUB 6000 
660 GOSUR 4000: GOSUB 5000: TF 

DL = 11 THEN PRINT "MAS A BAN 
CA TEM A MESMA COISA”: GOSUB 60 
00: GOTO 610 
690 GOSUB 5000: IF MN < 1 THEN 

PRINT "VOCE PERDEU TODAS AS F 


ICHAS": GOSUB 6000: GOTO 790 
700 IF PF = 1 THEN PRINT “EMB 
ARAI.HANDO AS CARTAS": GOSUB 150 


O: GOSUB 6000: GOTO 750 

790 PRINT "QUER JOGAR NOVAMENT 
E (S/N) ?” 

3500 GOSUB 1000: GOSUB 2000: I 
F NM = 1 THEN DA = 1 

4000 NN = N:N = D1I:CX = 6:CY = 

110: GOSUB 3500 


Você precisará, portanto, recorrer à 
listagem do Apple para fazer as demais 
modificações. 

As diferenças entre o programa do 
TK-2000 e do Apple devem-se à ausên- 
cia de uma página exclusiva para textos 
no primeiro computador. Assim, as 
mensagens têm que ser impressas na pá- 
gina gráfica. 

As explicações sobre o funcionamen- 
to do programa são as mesmas, com 
uma exceção: na linha 3500 não ligamos 
a tela de alta resolução como no Apple, 
pois nunca saímos dela. 
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Antes de acrescentar as linhas seguin- 
tes, apague o GOTO 190 do final da li- 
nha 650. 


500 GOSUB 4000:GOoTo 540 

510 CXK=CX+50:GOSUB 3500:NC=NC+1 
520 FOR K=1 TO 1725:NEXT 

530 IF DL>21 THEN 620 

540 DT=DL+10* (DA AND (DL<12)):IF 
DT=21 AND NC=2 THEN CLS: PRINT” 
à BANCA TEM UM NATURAL”: PF=1:G 
OTO 610 

550 IF NC=5 THEN PRINT” A BANCA 
TEM UMA MAO DE CINCO”:GOTO 610 
560 R=20-DT:IF RND(100)<A*R*R O 
R DT<l16 OR P5=1 THEN 510 

570 CLS: IF P5=1 THEN PRINT” VOC 
E TEM UMA MAO DE CINCO” ELSE PR 
INT” VOCE TEM"; PT 

580 PRINT” A BANCA PAGA"; : IF DT 
<21 THEN PRINT DT+1 ELSE PRINT 
” SOMENTE NATURAIS E MÃOS DE 

CINCO” 

590 FOR K=1 TO 500:NEXT:IF P5=1 
THEN 630 

600 IF DT<PT THEN 630 

610 PRINT” A BANCA GANHA” : GOTO 

690 

620 CLS:PRINT” A BANCA ESTOUROU 
- VOCE GANHA” :GOTO 640 

630 PRINT ” VOCÊ GANHOU DA BANC 

A” 

640 MN=MN+2Z*BT:GOTO 700 

660 GOSUB 4000:IF DL=11 THEN PR 
INT: PRINT” MAS A BANCA OBTEVE O 
MESMO VALOR” :GOTO 610 

670 GOTO 630 

690 PRINT:IF MN<1l THEN PRINT ” 

VOCE PERDEU TODAS AS FICHAS”:GO 

TO 790 

700 IF PF=1 THEN PRINT:PRINT” A 
BANCA EMBARALHA AS CARTAS 

APOS OBTER O NATURAL” :GOSUB 150 
0:GOoTO 750 

710 NF=N-1:IF NA>2N THEN NF=N+51 
720 FOR X=NF TO NA+I STEP-1:Q=R 
ND(X-NA) +NA-1:T=5Q(X):SQ(X)=5Q( 



























Q):SQ(Q)=T:NEXT:IF NA>N THEN 74 

O 

730 FOR X=0 TO 9:80(X+52) =S0(X) 

“NEXT:GOTO 750 

740 FOR X=0 TO 9:5S0(X)=50(X+52) 

“NEXT 

790 PRINT:PRINT” QUER RECOMECAR 
(S/N) ?" 

B00 AS=INKEYS:IF AS<>"S” AND AS 

<>"N” THEN 800 

B10 IF AS="S"” THEN CLS:GOTO 170 

B20 END 

3500 SCREEN 1,1:GOSUB 1000:GOSU 

B 2000:IF NM=1 THEN DA=1 

3510 IF NM>10 THEN DL=DL+10 ELS 

EDL=DL+NM 

3520 RETURN 

4000 NN=N:N=Dl:CX=6:CY=108B:GOSU 

B 3500 

4010 N=D2:CX=56:GOSUB 3500:N=NN 

4020 FOR K=1 TO 2000:NEXT:NC=2: 

RETURN 


Quando a vez de jogar passa à ban- 
ca, vêem-se na tela a mão do jogador e 
as duas cartas fechadas de seu adversá- 
rio eletrônico. A banca, em primeiro lu- 
gar, abre suas duas cartas — a linha 500 
chama a sub-rotina 4000, que abre a pri- 
meira carta chamando outra sub-rotina, 
na linha 3500. Esta liga a tela de alta re- 
solução, desenha a carta e calcula os 
pontos. A segunda carta é aberta pela 
linha 4010, que chama a mesma sub- 
rotina após ter modificado a posição ho- 
rizontal da carta. O número da carta é 
ajustado e a sub-rotina termina na linha 
4020. 

A linha 510 calcula a posição hori- 
zontal da nova carta e chama a sub- 
rotina da linha 3500. Assim, a banca re- 
cebe mais uma carta. A linha 520 pro- 
voca uma pausa antes que a 530 verifi- 
que se a banca tem mais de 21 pontos 
— à linha-620 informa o fato, se neces- 
sário. A linha 540 verifica se a banca 
conseguiu um natural; em caso afirma- 
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tivo, coloca 1 no indicador de naturais 
e exibe uma mensagem na tela. Mãos de 
cinco são detectadas pela linha 550. 

A parte mais interessante do progra- 
ma está na linha 560, quê faz o compu- 
tador decidir se quer ou não mais car- 
tas. Seria mais fácil programar a máqui- 
na de maneira que ela parasse de pedir 
cartas quando atingisse um determina- 
do valor — 19, por exemplo. Mas seria 
igualmente fácil para o jogador derrotá- 
la, uma vez que tivesse conhecimento 
dessa estratégia de jogo. Por isso, é ne- 
cessário introduzir no programa um ele- 
mento de acaso, que torne as decisões 
da banca imprevisíveis. Por outro lado, 
não podemos munir o programa de uma 
estratégia suicida, que faça, por exem- 
plo, com que a banca frequentemente 
peça mais cartas, já tendo obtido 20 
pontos. 

Criamos, assim, uma variável R, 
igual a 20, menos o valor da mão da ban- 
ca. O programa escolhe ao acaso um nú- 
mero entre 1 e 100 e o compara com 
R*R*R. Se o número for menor, se a 
banca tiver menos de 16 pontos ou se o 
jogador conseguir uma mão de cinco, a 
banca pede mais uma carta. A maneira 
como calculamos R faz com que a chan- 
ce da banca pedir cartas diminua à me- 
dida que seu total de pontos aumenta. 
Raramente ela pedirá mais cartas tendo 
já 19 pontos, mas quase sempre o fará 
quando tiver apenas 16. 


O RESULTADO FINAL 


A linha 570 mostra o total de pontos 
do jogador ou indica uma mão de cin- 
co. A linha 580 informa quais os tipos 
de mão a banca vai pagar. 

Se o jogador obteve uma mão de cin- 
co e a banca não, a linha 590 exibe na 
tela a mensagem VOCÊ GANHOU. De 
modo semelhante, a linha 600 compara 
os totais do jogador e da banca; o re- 
sultado é dado pelas linha 610 ou 630, 


, dependendo do vencedor. 


Quando o jogador ganha, a linha 640 
acrescenta as fichas obtidas às que ele 
possuía. Sempre que alguém obtém um 
natural, as cartas são embaralhadas pe- 
las linhas 710 a 740. A linha 700 verifi- 
ca o indicador de naturais. 

A linha 660 entra em ação quando o 
jogador consegue um natural, verifican- 
do se a banca conseguiu mão igual. Se 
a banca vencer, a linha 610 anuncia. Ca- 
so contrário, a linha 630 informa a vi- 
tória do jogador. 

A linha 690 avisa que o jogador per- 
deu todas as fichas. 

Finalmente, as linhas 790 a 820 ofe- 
recem-lhe a opção de jogar novamente. 


E = 











A ordenação é um dos aspectos fun- 
damentais do processamento de infor- 
mações. Os computadores são muito rá- 
pidos na manipulação de dados e a or- 
denação destes é um ponto importantis- 
simo para tornar a informação acessi- 
vel à análise e correção. 

Imagine como seria difícil encontrar 
as referências a um determinado assun- 
to em um livro, sem o auxílio de um in- 
dice. Ou procurar um número numa lis- 
ta telefônica sem que os nomes estives- 
sem em ordem alfabética. Estamos, nos 
dois casos, diante de listas de informa- 
ções, nas quais, ao contrário de uma lis- 
ta de compras, por exemplo, os itens são 
= arranjados ou ordenados numa ordem 
à específica: a alfabética. Em outros ca- 
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sos — como na ordenação das notas de 
uma classe —, os itens estariam arran- 
jados em ordem numérica. 

Muitos tipos de programa fazem uso 
de rotinas de ordenação, inclusive os 
programas de jogos, que comparam pla- 
cares. Essas rotinas, porém, são mais 
comumente encontradas em programas 
que lidam com grande quantidade de 
dados, como os de controle de arquivos, 
mala direta etc. 


O QUE É ORDENAÇÃO 





Ordenar é, simplesmente, colocar de- 
terminado conjunto de dados em uma 
ordem específica — algo como arru- 





mar as cartas de um baralho. 

A posição relativa de dois itens quais- 
quer em geral se baseia em uma supe- 
rioridade numérica ou alfabética de um 
sobre outro. 

Em ordemações numéricas, valores 
maiores vêm sucessivamente antes ou 
depois dos menores. Em ordenações al- 
fabéticas, as letras são colocadas, suces- 
sivamente, das mais próximas do início 
até as mais próximas do fim do alfabe- 
to, ou vice-versa. 

Pode-se também fazer ordenações em 
base alfanumérica, ou seja, levando-se 
em conta letras e números. Mas sempre 
haverá a prioridade de uns sobre outros 
— as letras quase sempre têm mais im- 
portância que os números. 
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A ORDENAÇÃO TIPO BOLHA 


A mais simples rotina para ordena- 
ção é a chamada ordenação tipo bolha. 
Você já viu um exemplo dela no artigo 
da página 292. Agora, examinaremos o 
processo em maior detalhe. Para acom- 
panhar o que acontece, use cartas de ba- 
ralho ou, então, recorte e numere alguns 
pedaços de papel. 

Coloque esse grupo de cartas (ou pe- 
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Em uma ordenação tipo bolha, o pri- 
meiro valor — aqui, o dez — é compa- 
rado com o seguinte do conjunto, ha- 
vendo uma troca, se o valor deste for 
menor (o que ocorre no nosso caso). O 
dez é então comparado com o dois, com 
o sete e com o três, mudando sempre de 
lugar, porque é o maior valor a cada 
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bulham”” no sentido inverso. 

Assim, depois da primeira passagem, 
o arranjo das cartas ficou assim: 


[dez] 
[três] 
[sete] 
[dois] 
[seis] 


última 


primeira 


O processo reinicia com a nova pri- 
meira carta, O seis, que é, então, com- 
parada e trocada com a anterior, visto 


mo 





que tem valor maior. Mas, em seguida, 
é comparada com o sete que, por sua 
vez, é maior. As comparações conti- 
nuam, então, com este valor, enquanto 
o seis fica na segunda posição. O sete 
é comparado com o três e depois com 
o dez, subindo apenas um posto, já que 
encontrou um valor maior. 

A nova ordem das cartas, após a se- 
gunda passagem, é a seguinte: 


última [dez] 
[sete] 
[três] 
[seis] 
primeira [dois] 


A primeira carta, o dois, é compara- 
da com a anterior. O seis ganha e fica 
na mesma posição. Comparado com o 
três, O seis troca de lugar com ele, mas 
fica agora parado nesta posição, uma 
vez que é menor que o sete e o dez. A 
ordenação terminou, pois não há mais 
trocas a se fazer. 

A ordem das cartas é, então: 


última [dez] 
[sete] 
[seis] 
[três] 
primeira [dois] 


O computador faria uma última pas- 
sagem por essa nova ordem das cartas, 
para se certificar de que não há mais tro- 
cas a fazer, e só pararia se realmente não 
houvesse. 

Durante a execução da rotina um cer- 
to número de comparações e trocas foi 
feito. Essas duas operações estão incluí- 
das em qualquer rotina de ordenação. 
A diferença entre tais rotinas consiste 
apenas no número de operações que são 
executadas e, consequentemente, no 
tempo gasto. 

Vejamos agora outros exemplos, 
usando esta sequência de números: 


fim 
96 


início 


6 35 WD 4 li 





O primeiro da lista é o 67. Ele é com- 
parado e trocado com o 35, mas para 
aí. O maior valor neste ponto é 7/2, que 
é comparado e trocado sucessivamente 
com 19, 47, 38, 11, até que encontra o 
96; a rotina, então, recomeça a compa- 
ração desde o primeiro número. 

A lista abaixo mostra todo o proces- 
so. Os itens submetidos a comparação 
estão entre parênteses. 


(67 )0( 35) TE 19 47 38 11 26 
35 (67). 725) 19 47 18 11 26 
35 6? ( 72)( 19) 47 18 il 26 
35 6? 19 ( 72)0(47 5) 38 11 26 
35 5? 19 47 47294383 121 26 
15 =Fi e, q? 38 ( 72)( 113 96 
dá 6? 19 4? 38 11 (4 72)0H% 

[35 )( 67) 49 47 38 11 72 26 
35 (67)4129) 4 18 11 a 6 
35 19 (67 )( 47) 38 11 72 96 
35 1% 47 067) 38 ) dá Tá 26 
15 19 47 38 (67 )0 119 74 96 
315 1% 47 38 11 (679472) 96 
J5 1% 47 JB 11 67 (72 )1 % 


(35 )( 19) 47 38 11 6? 72 26 
IO (395) 


o 
“ea 


19 35 38 11 (67) 72 96 
19 35 38 11 4 (67 )4 72) DM 
19 35 38 11 47 6” ( 72)1 96 
(19)(35)1 38 11 47 67 72 6 
19 (35 531 38 41 q? 67 72 56 

| 


| | 
| 


19 as 11 38 (47)( 67) TZ 6 
19 35 11 38 47 (67 )4 72) % 
19 35 11 38 47 6? ( 72)1 96 
(19)0(35) dd 38 47 6? 72 26 
19 (35)( 11) 3% 47 67 2 26 
19 11 (35 )( 38) 47 67 72 96 
19 11 35 138 )( 47) 62 !2 26 
19 11 35 a8 (47 )( 67). 72 26 
19 11 35 38 47? 467 )t 72) 9% 
19 11 35 38 47 61 ( 72)( 96 
(1994215) 3 38 4? 6? 72 26 
11 (1991395) 38 47 67 72 56 
11 19 (35 )(38) 47 67 7a 96 
11 19 35 438 )( 47) 6? 72 26 
11 19 15 a8 (47 )( 67) 72 96 
11 19 35 38 42 (67 )( 72) 96 
11 19 35 38 42 6 (72)( 96 
(IL )( 19) 35 38 47 67 72 56 
11 (19913) 3% 47 67 tê 26 
11 19 495)038) 47 67 72 96 
11 19 35 4 38 9047 ) 67 2 96 
11 19 35 38 (47 )( 67) 72 96 
11 19 35 38 47 467 94 72 26 
| l 


Vejamos agora como se comporta a 
rotina de ordenação tipo bolha na for- 
ma de programa. Ela está colocada co- 
mo a sub-rotina 1000. 

Grave o programa para que possa 
adicionar outras rotinas mais tarde. 


10 POKE 23658,8: LET T=0: 
INPUT "NUMERO DE ITENS “;AA: 
IF AA<2 THEN GOTO 10 

15 DIM A(AA) 

20 PRINT ''"''"TABELA DESORDENA 
DA”: PRINT 

30 FOR Z=1 TO AA 
40 LET A(Z)=INT 
50 PRINT TAB T;A(Z);: 


(RND*100)+1 
LET T=T 


+d: IF T>30 THEN LET T=0 

60 NEXT Z 

70 PRINT : PRINT : PRINT “PRE 
SSIONE 'O0' PARA ORDENAR” 

B0 LET KS=INKEYS: IF KS<>"0” 


THEN coTo 80 
90 GOSUB 1000 


100 PRINT : PRINT "TABELA ORDE 


NADA”: PRINT 

110 LET T=0: FOR Z=1 TO AA 

120 PRINT TAB T;A(Z);: LET T=T 
+4: IF T>30 THEN LET T=0 

130 NEXT Z 

140 GOTO 10 

999 REM ORDENACAO BOLHA (BUBBLE 
SORT) 


1000 FOR Z=1 TO AA-1 

1010 LET ZZ=0 

1020 FOR Y=1 TO AA-Z 

1030 IF A(Y+I)<A(T) THEN LET X 


=A(Y): LET A(Y)=A(Y+1): LET A(Y 
+1)=X: LET ZZ=1 
1040 NEXT Y 


1050 IF ZZ=0 THEN RETURN 
1060 NEXT Z: RETURN 


Dog Leio] 


10 PRINT: PRINT: INPUT"NUMERO DE 
ITENS" ;AA:IF AA<2 THEN 10 

15 DIM A(AA) 

20 PRINT: PRINT"TABELA DESORDENA 
DA” : PRINT 

30 FOR Z=1 TO AA 

40 A(Z)=INT(RND(1)*100)+1 


ai 


) 
12 )4 96 ) 


50 PRINT A(Z), 

60 NEXT Z 

70 PRINT: PRINT: PRINT" PRESSIONE 
"0" PARA ORDENAR” 

80 GET KS:IF KS<>"0" THEN 80 
90 GOSUB 1000 

100 PRINT:PRINT: PRINT"TABELA OR 
DENADA” 

110 PRINT:FOR Z=1 TO AA 

120 PRINT A(Z), 

130 NEXT Z 

140 RUN 

999 REM ORDENACAO BOLHA (BUBBLE 
SORT) 

1000 FOR Z=1 TO AA-1 

1010 ZZ2=0 

1020 FOR Y=1 TO AA-Z 

1030 IF A(Y+I)J<A(Y) THEN X=A(Y) 
:A(T)=A(Y+) A(T+I) =X: ZZ=l 
1040 NEXT Y 

1050 IF ZZ=0 THEN RETURN 

1060 NEXT Z:RETURN 


O programa acima roda apenas no 
Apple e no TK-2000. Faça as seguintes 
alterações para adaptar o programa à 
sua máquina: 


40 A(Z)-RND(100) 

50 PRINT A(Z); 

BO K$=INKEYS:IF K$<>"0" THEN 80 
120 PRINT A(Z); 


na 


5 R=AND(-TIME) 
BO KS=INKEYS:IF K$<>"0” THEN BO 
1030 IF A(Y+1I)J<A(Y) THEN SWAP A 


Execute o programa. Inicialmente, 
ele pedirá a quantidade de itens que vo- 
cê quer ordenar, criando um conjunto 
de números pseudo-randômicos baseado 
na sua resposta. Estes são mostrados na 
tela sob o título “TABELA DESORDE- 
NADA”, Uma mensagem pede que vo- 
cê tecle '0' para iniciar a ordenação. 

A rotina começa a funcionar, con- 
cluindo a ordenação em cerca de um se- 
gundo, se os itens forem poucos. Em se- 
guida, o conjunto de números é exibi- 
do na tela. No artigo da página 292 vo- 
cê encontrará mais detalhes sobre esta 
rotina e verá também o algoritmo em 
forma de diagrama. 

Para que você possa comparar as di- 
versas rotinas, é interessante que crono- 
metre o tempo gasto em cada uma de- 
las. Incorpore a rotina seguinte ao pro- 
grama, a fim de que o computador fa- 
ça isso para você. Os usuários do Ap- 
ple II ou compatível precisarão utilizar 
o seu relógio... 


90 TIMER=0:GOSUB 1000:PRINT:PRI 





NT” TEMPO: ";TIMER/50;"SEGUNDOS 


90 POKE 16920,0:POKE 16919,0:G0 


SUB 1000:PRINT"Tempo:";PEEK(169 
20) ;"m"; PEEK(16919);"a” 


90 POKRE 23672,0: POKE 23673,0 
: GOSUB 1000: PRINT : PRINT ( 
PEEK 23672+256*PEEK 23673)/50 
:” SEGUNDOS” 


Da 


90 TIME=0:G0OSUB1000:PRINT:PRINT 
"Tempo: ";TIME/60;" segundos” 


Para iniciar a cronometragem e a or- 
denação, pressione '0' quando a men- 
sagem aparecer. O tempo gasto pela ro- 
tina para ordenar os dados é exibido e 
o programa recomeça automaticamente. 

Provavelmente você gastaria muito 
mais tempo do que a máquina para exe- 
cutar a mesma tarefa. Porém, pelos pa- 
drões computacionais, o tempo gasto 
pela ordenação tipo bolha é extrema- 
mente longo. Por essa razão, não se cos- 
tuma usá-la em sua forma original em 
programas de manipulação de dados, a 
não ser para listas muito pequenas. 

Mas veja que, surpreendentemente, 
ela se mostra mais veloz que todas as ou- 
tras quando se trata de reordenar uma 
lista à qual se adicionou um item. Em 
um programa que armazena endereços 
comerciais, por exemplo, podemos or- 
denar as novas entradas separadamen- 
te e depois incorporá-las à lista princi- 
pal, Outra alternativa é reordenar a lis- 
ta toda a cada nova entrada. 

Nessas circunstâncias, a rotina tipo 
bolha não faz nada mais que comparar 
o novo dado com os outros, até que sua 
posição correta seja encontrada. A reor- 
denação de uma lista equivale, assim, à 
comparação de dois itens. E isso é feito 
rapidamente. 





A ROTINA DE SHELL 


As duas versões mais utilizadas da ro- 
tina tipo bolha são as rotinas de Shell 
e de Shell-Metzner. Ambas devem ser 
consideradas quando o número de itens 
a serem ordenados ultrapassa a casa dos 
dez. 

A rotina de Shell emprega uma téc- 
nica de busca binária que funciona di- 
vidindo sucessivamente a lista original 
ao meio, até que a posição do item em 
questão seja encontrada. A cada divi- 








| , | | | | | DI 
| ha 
| | | | | | | 
1d | | E | mei s E | 
—i Le A Lia ” E a - á o! 
, E o ei = PISA a Ae OR RE 
4 a E qe aa! | : E 
f ê d = a a ! 


são, um novo par de valores é compa- 
rado. A rotina termina quando faz uma 
passagem completa sem trocas. 

Uma rotina de Shell tem, tipicamen- 
te, a forma mostrada aqui. Adicione-a 
ao seu programa e mude o número do 
GOSUB da linha 90 para testá-la. 


1999 REM ORDENACAO SHELL 

2000 LET Z=AA 

2010 TF Z<=1 THEN RETURN 

2020 LET Z=INT (2/2): LET Y=AA- 
EA 
2030 LET ZZ=0 

2040 FOR X=] TO Y 

2050 LET XX=X+Z 

2060 IF A(K)>A(KX) THEN LET Y% 
=A(X): LET A(X)=A(KX): LET A(XX 
jJ=TY: LET ZZ=1 

2070 NEXT X 

2080 IF ZZ2>0 THEN GOTO 2030 
2090 GOTO 2010 


ra : É | —— 
| “Err o 
| | NF | | 
| o | | | 
| 1 | 7! 


1999 REM OADENACAO SHELL 
2000 Z=AA 

2010 IF Z<=1 THEN RETURN 
2020 Z=INT(Z/2) :VY=AA-Z 
2030 Z2=0 

2040 FOR X=1 TO Y 

2050 XX=X+2Z 

2060 IF A(X)J>A(XX) THEN YY=A(X) 
“A(X)=A (XX) :A(XR)=YY:ZZ=1 
2070 NEXT X 

2080 IF ZZ>0 THEN 2030 
2090 GOTO 2010 


PARA UMA ORDENAÇÃO MAIS RÁPIDA 


A velocidade de qualquer rotina de | 


ordenação aumenta muito quando a in- 
' formação é oferecida já semi-ordenada. 
| Isso é importante sobretudo no caso da 
ordenação tipo bolha. 

Se os itens vão ser ordenados cro- 
nologicamente, por exemplo, deve- 
mos armazenar as datas na forma 
ANO/MÉS/DIA, em vez da mais usual 

| DIA/MÊS/ANO. Dessa maneira, aplica- 
se a ordenação inicialmente ao grupo 
completo e, depois, aos subgrupos. 

O processo seria muito mais demo- 
rado se ordenássemos inicialmente os 
dias, para depois reordenar alguns da- 

| dos em função dos meses, repetindo 
| finalmente todo o trabalho em função 
dos anos. 

Uma sub-rotina adicional poderia ser 
usada para inverter a sequência usual 

| de entrada da data para uso da rotina 
E| de ordenação. 





Se o seu micro é da linha MSX, mu- 
de a linha 2060 para: 


2060 IF A(X)>A(XX) THEN SWAP Al 
X) (A(RXK) sZgé=1 


Para melhor compreender o funcio- 
namento da rotina, vamos examinar em 
detalhe um exemplo. Suponhamos que 
devemos ordenar uma lista de números 
apresentada nesta ordem: 

EP .35 TA O 4] 38 MM MB 

A rotina divide a lista em duas ou- 
tras e compara o primeiro valor de ca- 
da uma delas. Se o primeiro valor da pri- 
meira lista é maior, ocorre uma troca. 
Neste exemplo, os valores 67 e 47 são 
comparados e trocados. 


47 35 Ja 19 61 38 41 % 


Após a troca, o par de valores seguin- 
te é comparado — 35 e 38. Nesse caso, 
não há troca. A rotina compara, então, 
72 e 11, trocando-os e, por fim, 19 e 
96, obviamente sem troca. À lista fica 
assim: 

47 35 11 19 67 38 72 9% 

Neste ponto, cada metade é nova- 
mente dividida: 

47 35 11 19 67 38 72 96 

A rotina compara e troca o primeiro 
valor, 47, com o terceiro, 11. Depois, 
compara e troca o segundo, 35, com o 
quarto, 19. O 35 assume agora a quarta 
posição. O valor no terceiro posto, 47, 
que já foi trocado uma vez, é compara- 
do com 67. Desta vez não há troca. O 
quarto valor, 35, é comparado com 38 
e permanece onde está. O quinto valor, 
67, é comparado com o sétimo, 72, e fi- 
ca na mesma posição. Por fim, 38 e 96 
são comparados e não trocam de lugar. 

Veja abaixo a sequência. Como no 
exemplo anterior, os valores compara- 
dos estão entre parênteses. Verifique 
se, na linha seguinte, alguma troca foi 
efetuada: 


(47) 35 :(11) 19:67 38:72 9% 
11 (35): 47 (19): 67 38: 72 9 
11 19 :(47)35 :(67)38 : 72 96 
1 192: 47(35): 67 (38): 72 96 


11 19º: 47 35 :(67) 38 : (12) 96 
11 19:47 35:67 (038): 72 06) 
11 19:47 35:67 38: 72 96 


A lista é, então, dividida da seguinte 
maneira: 
H:19:47:35 26703: 72: 9% 





Os valores são novamente compara- 
dos dois a dois. Como você pode obser- 
var, a rotina compara somente valores 
adjacentes: o primeiro com o segundo, 
o segundo com o terceiro, o terceiro com 
o quarto e assim por diante, até o fim 
da lista: 


Gis (IM! AT: IS PETI ET: 
11 : (19) :(40: 35:67:38: 74: 
11 : 19 s(40:08):67:38 772: 
11 : 19 : 35 :(47):(67): 38 : 72: 
11 : 19 :35:47:(67):(38): 72: 
11: 19 :35:47:38:(67):(72):96 


ESSA 


A rotina faz o mesmo até os últimos 
valores, que já estão em ordem, e volta 
ao início: 
(11):(19):35:47:38:67:72:96 


11 :(19):(35): 47 :38:67:72:96 
11: 19 :(35):(47): 38 : 67: 72:96 


ES 7" Co 





I9 : 35 :(47):(38): 67 : 72 :96 
I9 : 35: 38 :(47):(67): 72 :96 


Embora a lista já esteja ordenada, o 
computador executa mais uma passa- 
gem completa. Cada novo valor pode 
agora ser comparado com essa lista co- 
mo o faz a rotina tipo bolha — isto é, 
estabelecendo comparações aos pares. 


A ROTINA DE SHELL-METZNER 





A rotina de ordenação de Shell- 
Metzner, derivada da rotina de Shell, é 
ainda mais rápida e utiliza o mesmo 
princípio de busca binária. 


O 
2999 REM SHELL-MELTZNER SORT 
3000 LET Z=AA 


3010 LET Z=INT (Z/2) 


À 7 a «di f Si ge . 
h A ) e ape » E Ná E 1 
nda A 


ds 


3020 IF Z=0 THEN RETURN 

3030 LET Y=AA-Z: LET ZZ=1 

3040 LET X=2ZZ 

3050 LET XX=X+Z 

3060 IF A(X)<=A(XX) THEN GOTO 
3090 

3070 LET W=A(X): LET A(X)=A(XX) 
: LET A(XK)=W: LET X=X-Z 

3080 IF X>=1 THEN GOTO 3050 

3090 LET ZZ=ZZ+1 

3100 IF ZZ2<=Y THEN GOTO 3040 

3110 GOTO 3010 


gre É rem REecrtrAaoT 
| 7 PA) E p= 
| Ê IT' FA E LR | [| 


REM ORDENACAO 'SHELL-METZN 
LET Z=AA 
Z=INT(Z/2) 
IF Z=0 THEN RETURN 
Y=AA-Z:ZZ=1 
X=ZZ 

 KX=K+Z 


IF A(X)<=A(XX) THEN 3090 





3070 W=A(X) :A(X)=A(XK) :A(XX)=W: 
H=X-Z 

3080 IF X>=1 THEN 3050 

3090 ZZ=Z2Z+1 

3100 IF ZZ<=Y THEN 3040 

3110 GoToO 3010 


Se você trabalha com um MSX, be- 
neficie-se de seu poderoso BASIC, tro- 
cando a linha 3070 para: 


Ji 
, Fr 8 


30/70 SWAP A(X) ,ACKK) :XK-Z 


Adicione esta rotina ao seu programa 
de demonstração e para experimentá-lo 
será preciso modificar a referência de 
linha da linha 90. 

Como você vai notar, ela é muito 
mais rápida que as outras rotinas, o que 
fica evidente especialmente se a compa- 
ramos com a rotina tipo bolha para mais q 
de cinquenta números. : 
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Aventura que se preze, com reis, rai- 
nhas e castelos, não dispensa a partici- 
pação de um temível dragão. 

Não é difícil incluir esse personagem 
em seus jogos. Para criá-lo e dar-lhe ani- 
mação — fazendo com que cuspa fogo 
— , você pode utilizar as técnicas já vis- 
tas nos programas do sapo e do tanque, 
apresentados no artigo publicado à pá- 
gina 341. 





| . | 
1 à ao 
| | | | 


Para montar o ''quadriculado”" na 
memória do computador, usaremos o 
programa dado no artigo anterior. O 
“Apple, o TK-2000 e também o MSX não 


precisam desse tipo de programa. A lis- 
tagem para o Spectrum e o TRS-Color 
encontra-se naquele artigo. 

Depois de carregar — ou digitar — 
o programa criador de quadriculado, 
use RUN para fazê-lo funcionar. Quan- 
do o programa acabar de rodar, di- 
gite NEW e <ENTER>. (Nada dis- 
so se aplica ao MSX, ao Apple e ao 
TK-2000.) Em seguida, digite o progra- 
ma adequado para seu computador. 

Os usuários do Apple, do TK-2000 e 
do MSX precisarão carregar — ou digi- 
tar — o programa do tanque, pois as li- 
nhas apresentadas neste artigo são mo- 
dificações a serem feitas naquele progra- 
ma, e não funcionarão sozinhas. 


Em todos os computadores, exceto 
no MSX, use as teclas P, L, X e Z para 
mover o dragão. No MSX devem ser uti- 
lizadas as teclas do cursor. A barra de 
espaço faz o dragão cuspir fogo. 


10 FOR n=USR "a” TO USR "t"+7 
+ READ a: POKE n,a: NEXT n 

20 LET print=-32400: LET b= 
32402: IF PEEK 23733=255 THEN 
LET print=65200: LET b=65202 


90 BORDER 7: PAPER 7: INK 4: 
CLS : PRINT AT 8,15;: RAND 
USR print 


100 LET y=B: LET x=15: LET yl= 
8: LET xl=15: LET z=1 
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Vimos, em artigo anterior, como 
desenhar e dar movimento a um tanque 
de guerra e a um sapo. Com as técnicas 
e programas já apresentados, desenhe 
também um dragão que cospe fogo. 


110 LET aS=INKEYS: IF ag="" 162 
THEN GOTO 110 230 PAUSE 1 
115 IF a$=" " THEN GOTO 200 240 PRINT AT y,x-1;" " 
120 IF a$="z”" AND x>1 THEN 260 GOTO 110 
LET xlex-l: LET 2-1 300 PRINT INK 6;AT y,x+3;CHRS$ 
130 IF a$="x”" AND x<28 THEN 163 
LET xl=x+1l: LET 2z=2 310 PAUSE 1 
150 TP as=el* AND y<19 THEN ao SG dan 
fa x 1000 DATA 6,214,249,63,240,0,3, 
160 PRINT AT v,xs:: POKE Db, O: 15,96,64,192,224,224,192,196,20 
RAND USR print 4,0,0,0,0,0,0,0,0 | 

pata " 1010 DATA 63,125,107,245,249,12 
170 LET x=xl: LET y=yl 1 244 196 255 128 19 
180 PRINT AT y,x;: POKE b,z: 7,127,51,244,196,194,255,128, 


2,224,240,0,0,0,2,6,14,6,10 

1020 DATA 55,23,7,3,1,0,4,7,254 
,255,239,239,224,192,128,128,56 
,240,192,0,0,0,0,0 


RAND USR print 

190 GOTO 110 

200 IF z=2 THEN GOTO 300 

220 PRINT INK 6;AT y,x-1;CHRS 
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E | COMO COLOCAR UMA NOVA 
FIGURA NO QUADRICULADO 

mn MOVIMENTOS NA TELA 
a FAÇA O DRAGÃO 
CUSPIR FOGO 








1030 DATA 0,0,0,0,0,0,0,0,6,2,3 
17,7 ,3,35,51,96,107,159,252,15, 
0,192,240 

1040 DATA 0,0,0,64,96,112,96,80 
,47,33,65,255,1,3,7,15,252,190, 
182,175,159,254,254,204 

1050 DATA 28,15,3,0,0,0,0,0,127 
,255,247,247,7,3,1,1,236,232,22 
4,192,128,0,32,224 

1060 DATA 8,68,50,139,50,68,8,0 
,16,34,76,145,76,34,16,0 

5000 FOR i=l TO 5 

5010 SAVE "MC0301” 

5020 NEXT à 





ru 


20 PCLEAR 5 


30 CLEAR 200, 
FOR 1=32300 TO 32587 


: E ” E E al Es [ 
em A ns q a 
000 


50 READ N 


POKE I,N 


70 NEXT 






DIM A(2),B(2),C(2) 
PMODE 4,1 


PCLS 

FOR 1=1536 TO 
READ N 

POKE I,N 

NEXT 

GET (0,0)-(7,7),A 

FOR 1=1536 TO 1760 STEP 32 
READ N 

POKE I,N 

NEXT 

GET (0,0)-(7,7),B 

PCLS 

SCREEN 1,0 

T=1 

DP=3500 


1760 STEP 32 


) POKE 32700, INT(DP/256) 


POKE 32701,DP-256*INT(DP/25 


POKE 32250, T+DT*2 

| EXEC 32000 

LP=DP 

IF PEEK(338)=251 THEN DP=DP 
:GOTO 360 

IF PEEK(342)=253 THEN DP=DP 


















+32:GOTO 360 
320 IF PEEK(340)=247 THEN DP=DP 
=1:T=T+1:DT=1:GOTO 360 

330 IF PEEK(338)=247 THEN DP=DP 
+1:T=T+1:DT=0:GOTO 360 

340 IF INKEYS=" " AND T=2 GOSUB 
410 

350 GOTO 300 

360 IF DP<1536 OR DP>694] 
DP=LP 

370 IF T>2 THEN Tel 

380 POKE 32250,0 

390 EXEC 32000 

400 GOTO 250 

410 IF DT=1 GOTO 470 

420 YP=INT((DP-1536)/32) 
430 XP=B*(DP-1533-YP*32) 
440 IF XP>255 THEN 530 
450 PUT (XP, YP)-(XP+7,YP+7),A 
460 GOTO 510 

470 YP=INT((DP-1536)/32) 

480 XP=8*(DP-1537-YP*32) 

490 IF XP<O THEN 530 

500 PUT (XP, YP)-(XP+7,YP+7),B 
510 FOR I=1 TO 200:NEXT 

520 PUT(XP, YP)-(XP+7,YP+/),C 
530 RETURN 

540 DATA 0,0,0,0,0,0,0,0,6,2,3, 
7,7,3,35,51,96,107,159,252,15,0 
,192,240 

550 DATA 0,0,0,0, 64, 96, 112,9 
6,47,33,65,255,3,7, 
15, 31, 248,188 182, 
175,159,255,254,254 
560 DATA 
80,28,15,7,1,0,0,0, 
63,255,255,255,255, 
15,2,3,252,248,252, 
252, 248, 48,82,222 
570 DATA 0,0,0,0,0,0,0,0,0,6,2, 
3,747 03033,0,96,107,159, 252,15,» 
192,240 


THEN 


| 580 DATA 0,0,0,64,96,112,96,80, 
| 49,47,33,47,49,99,7,15,252,190, 


182,175,159,254,254,156 


| 590 DATA 28,15,3,0,0,0,0,0,127, 


255,239,239,15,6,2,3,220,216,19 


e 
| 2,128,0,0,64,192 


O dragão do TRS-Color é formado por 
blocos gráficos de oito por oito pontos. 


|| 600 DATA 6,214,249,63,240,0,3,1 


5,96,64,192,224,224,192,196,204 
10,0,0,0,0,0,0,0 


610 DATA 31,61,109,117,249,255, 


127,127,244,196,194,255,192,224 
,240,248,0,0,0,0,2,6,14,6 


620 DATA 63,31,63,63,31,12,74,1 
23,252,255,255,255,255.240,64,1 
92,10,56,240,224,128,0,0,0 

630 DATA 0,6,214,249,63,240,3,1 
5,0,96,64,192,224,224,192,132,0 
/0,0,0,0,0,0,0 

640 DATA 63,125,109,245,249,127 
,127,57,140,244,132,244,140,198 
,224,240,0,0,0,2,6,14,6,10 

650 DATA 59,27,3,1,0,0,2,3,254, 
255,247,247,240,96,64,192,56,24 
0,192,0,0,0,0,0 

660 DATA 0,16,34,76,145,76,34,1 


6 
670 DATA 0,8,68,50,137,50,68,8 


o 


As linhas a seguir são modificações 
que devem ser feitas no programa que 
move o tanque de guerra. 


5 CLEAR 1000:COLOR 12,15,12 
20 FOR I=1 TO 32*4 

25 READ A:AS=AS+CHRS (A) 

30 NEXT T 

35 FOR I=1 TO 32*4 

40 READ B:BS=BS+CHRS(B) 

45 NEXT I 


50 SPRITES (0) =LEFTS(AS,32) 

55 FOR I=1 TO 3 

60 SPRITES (I)=MIDS (AS, 1I*32+1,32 
) 

65 NEXT 1 


70 SPRITES (4) =LEFTS (B$,32) 

75 FOR 1=5 TO 7 

80 SPRITES (I)=MIDS(BS, (1-4)*32+ 
1,32) 

85 NEXT 1 

110 X=100:Y=90:F=1 

111 PUTSPRITEO, (X+16,Y7-8),12,0 

112 PUTSPRITEL, (X+16,7+8),12,1 

113 PUTSPRITEZ, (X,7+8),12,2 

500 PUTSPRITEO, (X+16,Y-8),12,0 

510 PUTSPRITEL, (X+16,7+8),12,1 

515 PUTSPRITEZ, (X,7+8),12,2 

516 PUTSPRITE3, (X+32,209),12,3 

600 PUTSPRITEO, (X+16,Y-8),12,4 

610 PUTSPRITEI, (X+16,7+8),12,5 

615 PUTSPRITEZ, (X+32,Y+B),12,6 

616 PUTSPRITES3, (X,209),12,7 

700 PUTSPRITEO, (X+16,Y-8),12,0 

710 PUTSPRITEL, (X+16,7+8),12,1 

715 PUTSPRITEZ, (X,Y+8),12,2 

716 PUTSPRITES, (X+32,7),6,3 

B0O0 PUTSPRITEO, (X+16,Y-8),12,4 

810 PUTSPRITEI, (X+16,7+8),12,5 

815 PUTSPRITEZ, (X+32,7+8),12,6 

B16 PUTSPRITES3, (X,Y),6,7 

5000 DATA 0,0,0,0,0,0,0,0,6,2,3 
7,07,3,35,51,0,0,0,0,0,0,0,0,96 
1107,159,252,15,0,192,240 

5010 DATA 47,35,67,255,1,3,7,15 
1127,255,247,247,7,3,1,1,252,19 
0,182,175,159,254,254,204,232,2 
24,224,192,128,0,32,224 

5020 DATA 0,0,0,0,0,0,0,0,0,0,0 
,/0,0,0,0,0,0,0,0,64,96,112,96,8 
0,28,15,3,0,0,0,0,0 

5030 DATA 16,34,76,209,76,34,16 
/0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 














5040 DATA 0,0,0,0,0,0,0,0,6,214 
,249,63,240,0,1,7,0,0,0,0,0,0,0 
0,96, 64, 192,224,224,192,196,20 


4 
5050 DATA 63,125,109,245,249,12 
7,127,51,23,7,3,1,0,0,4,7,244,1 
96,194,255,128,192,224,240,254, 
255,239,239,224,128,128,197 
5060 DATA 0,0,0,2,6,14,6,10,56, 
240,192,0,0,0,0,0,0,0,0,0,0,0,0 
[0,0,0,0,0,0,0,0,0 
5070 DATA 0,0,0,0,0,0,0,0,0,0,0 
0,0,0,0,0,8,68,50,139,50,68,8, 
0, 0,0,0,0,0,0,0,0 


abit] 


Carregue o programa que move um 
tanque na tela usando DRAW; faça ne- 
le as seguintes modificações: 


30 FOR I = ETOE+d4)+18* 
sé 
110 Rr KS$ = "Z”" AND X > 16 THE 


NX x - 3:F = O: GOTO 140 
170 “DRAW 1 AT LX,LY + 8 

180 DRAW 2 AT LX,LYT + 16 

190 DRAW 3 AT LX + 8B,LY 

200 DRAW 4 AT LX + B,LY + 8 
205 DRAW 5 AT LX + 8,LY + 16 
210 DRAW 6 AT LX + 16,LY 

220 DRAW 7 AT LX + 16,LT + B 


225 DRAW 8 AT LX + 16,LT + 16 
260 DRAW 11 AT LX,LY 

270 DRAW 12 AT LX,LY + 8 

275 DRAW 13 AT LX,LY + 16 


280 DRAW 14 AT LX + B,LY 

290 DRAW 15 AT LX + B,LY + 8 

295 DRAW L6 AT LX + B,LY + 16 

300 DRAW 17 AT LX + 16,LT + 8 

310 DRAW 18 AT LX + 16,LY + 16 

340 DBAW 1 AT X,Y + B 

350 DRAW 2 AT XK,Y + 16 

360 DRAW 3 AT X + B,Y 

370 DRAW 4 ATX + BY + 8 

3175 DRAW 5 AT X+ BT + 16 

380 DRAW 6 AT X + 16,Y 

390 DRAW 7 ATX + 16,7 + B 

395 DRAW 8 AT X + 16,7 + 16 

420 DBAW 11 AT X,Y 

430 DRAW 12 AT X,7 + 8 

435 DRAW 13 AT X,Y7 + 16 

440 DRAW 14 ATX + B,Y 

450 DRAW 15 AT X + B,Y + 8 

455 DRAW 16 AT X+ B,T7 + 16 

460 DRAW IZ7 AT X + 16,7 + 8 

470 DRAW 18 AT X + 16,7 + 16 

510 DRAW 9 AT X + do 

540 DRAW 9 AT X + 30, 

570 DRAW 10 AT X - 12,7 

600 DRAW 10 AT X - 12,Y 

2000 DATA 20 ,0 ,42 ,0 ,74.,0 
1106 ,0O ,138 ,0 ,170 ,0 ,204 

O 234 ,0 10 ,dl 42 ,) 474 4d 
1106 ,)l ,138 ,1 ,170 ,1l ,202 5,1 


234 1) 10 ,2 ,42 ,2 74 2, 
106 .2 ,138 ,2 
2010 DATA O PA 73 +73 v21B 
,219 ,219 ,74 ,73 ,73 ,218 ,21 
9 ,27 ,87 ,109 ,73 ,209 ,219 ,5 
9 ,191 ,41 ,77 ,73 ,218 ,219 ,3 
1.23,0,0 ,) ,0 ,0 

















| 






















O Spectrum, o MSX, o Apple e o TK-2000 utilizam este dragão como modelo. 


2020 DATA 0 ,72 ,41 ,109 ,20  ,219 ,155 ,0 04,0 ,0 ,0 
O 63 ,255 ,1588 5,73 ;73 173,2 2110. DATA 0,72 73 ;109 ,21 
LO ,219 4188. ,73 4,73 ,137% 219 8 ,255 ,31 ,55 ,45 ,45 ,77 ,213 
“219 ,158 ,73 ,73 ,137 ,219 ,21 63 +63 1255 042 445.077 0437 
3 158 ,0 0,0: ;0 05,0 “219 5210: 5188 5732 ,73 ,173 59 
2030 DATA O ,72 ,73 ,109 ,21 163 ,223 149 ,0 ,0 ,0 
8 :993 2i9 Já ,73 ;4l 213 ,6 2100 DATA O 77 ,45 ,45 0173 
3 223 ,185 ,.73 ,9 ,45 ,2l) ,25 ,251 ,63 ,63 ,87 ,109 ,109 ,21 
S ,219 ,83 ,1058 ,9 ,173 .59 ,22 à IA sl 5,63 ,55 ,45, ,45 ir é 
3 2.986 2,056 ,0 ;0 213 ,63 ,63 ,63 ,87 ,45 ,45 ,45 
2040 DATA 0,72 ,13 ,45 ,173 5213 ,255 ,59 ,159 ,0 | 

59 ,223 ,25) ,10 47? 49 vita 2130 DATA 0,72 ,109 ,45 ,21 
59,63 ,63 ,63,78 ,73 ,9 ,213 3 ,63 ,31 ,223 ,74 ,73 ,45 «213 

AME ONG 0) PÉ q4l d7I 489 “286 210 483 73 ,73 ,213 ,21 


63 ,922 519 50 46 9 ,219 ,83 ,73 ,105 ,209 ,63 ,2 
2050 DATA 0,8 ,45 ,45 ,45 , 23,155 ,0,0,0 ,0 ,0 | 
2131 ,63 ,63 ,63 ,55 ,45 ,109 ,4 2140 DATA O ,8 ,109 ,73 ,209 
S «213,63 ,31 ,63 4119 ,73 ,4) ,219 ,219 ,23 ,109 ,73 ,137 ,2 

“TT3 SO ,223 ,210 ;7A 073. 59 19 ,219 ,63 ,46 ,109 ,73 .209 
,213 ,223 ,219] ,19 ,0 219 ,219 ,55 ,109 ,9 ,77 ,218 , 


2060 DATA O ,8 ,109 ,73 ,209 59,223 ,55 ,0,0 ,0 ,0 
255 ,31 ,191 ,77 ,45 ,45 ,213 2150 DATA O ,40 ,45 ,13 ,77 


2 3 Ed IM GTA AS q 873 218 ,251) ,27 ,55 0409 ,73 sd41 
219 ,219 ,155 ,109 ,73 ,137 ,2 159 ,63 ,63 ,63 ,110 ,73 ,73,, 
19,27 ,63 ,55. ,D 0 ,0 218 ,219 ,27 ,55 ,45 ,77 ,f3 ,ê 


2070 DATA 0 ,40 ,45 ,45,77 18 ,219 ,63,55 ,0,0 
218 ,63 ,63 ,31 ,110 ,109 ,109 2160 DATA O ,40 ,45 ,45 ,109 


[26 63 ,255 ,31 ,110 ,41 ,45 126 ,63 ,63 ,63,55 ,45 ,13, 
50173 ,27 ,63 563 ,63 ,46 ,45 ,4 45 ,173 ,59 ,63 ,31 ,63 ,46, 
5 109 ,218 ,59 5223 ,55 109,73 ,209 ,219 ,219 ,55 , 


2080 DATA O ,40 ,109 ,109 ,2 77 Tá 837 , 210º ;AI9D 87 6 

09 ,219 ,31 ,63 ,46 ,109 ,73 ,2 2170 DATA Do AD GTS Gaia 
09: . 219. 219,81 ,77 5,73 ;13P, /219 ,219 ,74 ,73,73,218 ,224 
219 ,219 ,155 ,9,77 ,73 «218 , 3,219 ,74 ,73 ,109 ,218 ,63,2 +. 
219 ,59 ,55 ,0 ,0 ,0 ,0 23 4,0). cScpll ASI et ,3) quê 
2090 DATA O 72 ,105 ,73 ,2]) 3419 60,0. ;0 40.48 

6 ,223 ,2S81 ,10 ,77 ,109 ,209 , 2160 DATA O 72 :45 ,77 

223 ,251 ,119 ,77 ,109 ,209 ,25 209,219 ,59 ,63 ,46 ,7/ 








É 27 5159 573 077 137 5219 ,2 073 0209 219 219 83; 28 
19 ,458-40 00 604040 0 73 v73 209 210º a | 
2100 DATA 0,72 ,9,77 ,209 219 ,83 ,73 a s 





27 ,223 0187 ,9 ,109 ,105 ,26 1209 (219 2 | 
(255 ,225 4115: 44) 7? AA 421) DAS MN» A So »/ 
9 5223 187 Rr di 105 Lar 219 O «O 50 H 


= A ny | 
e” Pe 









O 
ANIMAÇÃO GRÁFICA 
NO TRS-COLOR 






Se você já sabe elaborar gráficos com 
UDG (Caracteres Definidos pelo Usuá- 
rio), é quase certo que queira movê-los 
pela tela. Para tanto, será necessário uti- 
lizar os comandos GET e PUT, que já 
vimos muitas vezes na seção Programa- 
ção de Jogos. 

Poderíamos imaginar o GET como 
um comando capaz de “fotografar” 
uma área retangular da tela de alta re- 
solução do TRS-Color. O que estiver 
naquela área — um UDG ou qualquer 
outro gráfico feito com LINE, CIRCLE 
ou DRAW — será armazenado numa 
matriz (veja artigo na página 192). 

PUT é o oposto de GET: ele “colo- 

a” a fotografia (conteúdo da matriz) 
em qualquer lugar da tela. Usar esse co- 
mando é muito mais rápido que redese- 
nhar o gráfico por outros métodos e, 
com ele, a idéia de movimento pode ser 
facilmente simulada: basta colocar 
(PUT) uma imagem em diferentes posi- 
ções na tela ou, então, colocar imagens 
diferentes repetidamente. 


BICICLETA 





Digite e rode este programa; ele usa 
GET e PUT para movimentar um UDG 
de uma bicicleta. 


10 PMODE 4,1:PCLS 

20 DIM BY(5) 

30 FOR K=1536 TO 1856 STEP 32 
40 READ A,B,C 

50 POKE K,A:POKE K+1,B:POKE K+2 


60 NEXT 

70 SCREEN 1,1 

80 GET (1,0)-(18,11),BY,G 

90 PCLS 

100 FOR K=0 TO 238 

110 PUT (K,90)-(K+17,100),BY,PS 
ET 














120 NEXT 

130 GOTO 90 

140 DATA 1,193,192,0,129,32,0,2 
55,64,1,134,0,14,139,128,19,86, 
64 

150 DATA 36,233,32,47,233,32,32 
,104,32,17,100,64,14,3,128 





Com os comandos GET e PUT podemos 
armazenar figuras em matrizes e, mais 
tarde, trazê-las de volta à tela. 
Aprendendo a utilizá-los, você 

animará os mais variados desenhos. 


Os DATA (dados) das linhas 140 e 
150 são acessados e depois inseridos na 
tela, via comando POKE, nas linhas 30 
a 60, A bicicleta é desenhada no canto 
superior esquerdo, ou seja, no começo 
da tela. Quando você for inserir um grá- 
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fico na tela e depois usar GET e PUT, 
desenhe-o nessa posição, pois assim sa- 
berá exatamente onde ele está. Conver- 
ter posições de memória em posições 
de tela pode não ser fácil, devido a va- 
riações entre os PMODE. 








E ANIMAÇÃO DE UM CARACTERE 
DEFINIDO PELO USUÁRIO (UDG) 


E) O USO DE MATRIZES 
COM OS COMANDOS GET E PUT 
[5 “FOTOGRAFE” À TELA 


A linha 80 faz um GET (ou “tira uma 
fotografia”) da bicicleta. A linha 90 lim- 
pa a tela antes que as linhas 100 e 120 
movimentem a bicicleta. A linha 110 
PUT (“coloca”) a bicicleta em uma po- 
sição diferente cada vez que passa pelo 
laço FOR...NEXT. 


COMO DIMENSIONAR UMA MATRIZ 





Sempre que usar GET num progra- 
ma, você precisará dimensionar (DIM) 
uma matriz para armazenar as informa- 
ções sobre o gráfico. Para calcular o ta- 
manho da matriz faça o seguinte: 

1) Depois de desenhar o gráfico, de 
preferência em papel quadriculado, tra- 
ce um retângulo, “enquadrando” intei- 
ramente a figura. Conte quantos qua- 
drados existem na primeira linha e quan- 
tos existem num dos lados. Multiplique 
estes dois números — o resultado será 
o número de quadrados que o desenho 
ocupa. Por exemplo: o retângulo que en- 
volve a bicicleta tem dezoito quadrados 
de largura por doze quadrados de altu- 
ra. Multiplicando-os, obtém-se o núme- 
ro total de quadrados, 216. 

2) Em seguida, calcule o número de 
bytes de memória necessário para arma- 
zenar todos esses quadrados. Em PMO- 
DE 3 e 4 divide-se o número de quadra- 
dos por 8, em PMODE 1 e 2 divide-se 
por 16, e em PMODE O por 32. Como 
a bicicleta foi desenhada em PMODE 4, 
divide-se 216 por 8, obtendo-se 27. O re- 
sultado deve ser um número inteiro de 
bytes e, por isso, às vezes é preciso 
ajustá-lo. E, seja qual for o número ob- 
tido, temos sempre que arredondá-lo pa- 
ra cima, nunca para baixo, 

3) Para calcular o tamanho que deve 
ter a matriz, divida o número de bytes 
por 5 (o divisor é sempre 5, não impor- 
ta o PMODE que está sendo usado). 

Voltando ao exemplo da bicicleta: 
temos 27 bytes para armazenar na ma- 
triz; portanto, 27/5 = 5,4. Novamente, 
se o resultado não for inteiro, deve-se 
arredondá-lo para cima — 6, nesse ca- 
so. A linha 20 diz DIM BY (5) porque 
as matrizes começam em 0. 

Aqui está um resumo dos divisores 
necessários para calcular o tamanho das 
matrizes nos programas gráficos: 





se COMO DIMENSIONAR 
CORRETAMENTE UMA MATRIZ 

E COLOQUE OGRÁFICO 
ONDE QUISER 

E TÉCNICAS DE ANIMAÇÃO 


Para calcular o número de: 


PMODE Bytes Matrizes 
4 8 5 
3 8 5 
2 16 5 
l 16 5 
Q 32 5 


Pode-se usar GET com todo tipo de 
gráfico na tela de alta resolução do com- 
putador. Quer utilizemos um UDG, os 
comandos PSET e PRESET, DRAW, 
ou qualquer combinação de comandos 
gráficos, será sempre possível armaze- 
nar figuras em matrizes por meio de 
GET e colocá-las (PUT) de volta à tela 
mais tarde. 

Para armazenar um gráfico numa 
matriz previamente dimensionada, vo- 
cê precisará dizer ao computador onde 
encontrar o gráfico na tela e em qual 
matriz pretende armazená-lo. Vejamos 
esta linha do programa da bicicleta: 
80 GET(1,0)-(18,11),BY,G 

Os números nos parênteses são as 
coordenadas de cantos diagonalmente 
opostos do retângulo que envolve o grá- 
fico. Você pode especificar os cantos 
que quiser e em qualquer ordem, desde 
que sejam diagonalmente opostos. 

A área armazenada não compreende 
todo o UDG que definimos, mas ape- 
nas as partes que realmente contêm a 
imagem — porque a bicicleta não ocupa 
toda a extensão de 24 quadrados. Co- 
mo o GET não nos limita a mover ape- 
nas imagens de oito por oito, podemos 
movimentar o que bem entendermos. 

Na continuação da linha 80, BY man- 
da o computador armazenar o gráfico 
na matriz BY, DIMensionada na linha 20. 

G significa “detalhe Gráfico comple- 
to”. Pode-se omiti-lo em certos casos 
(que explicaremos depois), mas em ge- 
ral é aconselhável usá-lo. 

Se estiver usando UDG, convém sem- 
pre inseri-los (POKE) no canto superior 
esquerdo da tela, como foi dito anterior- 
mente, para facilitar o ajuste do GET. 
Lembre-se de que quando os inserimos 
na tela a posição da imagem não está 
contida em coordenadas comuns. O 
GET “fotografa” a imagem de uma cer- 
ta coordenada de tela e, por isso, será 
preciso converter a posição de memória 


na qual introduzimos os UDG em coor-| 














denadas de tela equivalentes. Essa con- 
versão não é fácil, já que varia confor- 
me o PMODE. A inserção nas posições 
de memória do começo da tela (a partir 
da posição 1536) facilita o cálculo da 
coordenada de tela do UDG. O canto 
superior esquerdo deve estar na coorde- 
nada (0,0) e, sabendo o tamanho do 
gráfico, será simples calcular as coorde- 
nadas do canto inferior direito do UDG 
quando o “fotografarmos””. 


O USO DO PUT 


Depois de empregarmos o GET para 
armazenar o gráfico na memória, deve- 
mos limpar a tela com PCLS, antes de 
colocá-lo (PUT) de volta na tela. 

Aqui está à linha do PUT no progra- 
ma da bicicleta: 


110 PUT(K,90)-(K+17,1D0),BY, 
PSET 

Dentro dos parênteses, como no 
GET, encontram-se as coordenadas dos 
cantos diagonalmente opostos que espe- 
cificam a área na qual queremos colo- 
car a imagem. BY é a matriz que con- 
tém a bicicleta. 

A última parte da linha é o PSET, 
que faz o computador colocar o gráfi- 
co na tela exatamente como foi desenha- 
do, sobrepondo-o ao que estiver naque- 
las posições. 

Existem, porém, outras opções. 
PSET pode ser substituído por PRE- 
SET, OR, AND, ou NOT, que nos per- 
mitem manipular o gráfico. 

PRESET diz ao computador para co- 
locar o gráfico na tela no modo inver- 
so. No modo de duas cores, estas se in- 
vertem; no de quatro (modo 0), o ver- 
melho fica verde, o azul fica amarelo e 
vice-versa; no modo 1, o laranja fica 
cinza, O ciano fica roxo e vice-versa. 

OR permite que se coloque o gráfico 
armazenado na matriz junto ao que já 
está na tela. Ambos permanecem inal- 
terados, o que não ocorre quando utili- 
zamos PSET, que elimina o que estiver 
na tela. 

AND mostra a junção do que já está 
na tela com o gráfico que se introduz na- 
quela posição. 

NOT não mostra nenhum conteúdo 
da matriz: simplesmente inverte a área 
da tela em que a matriz será colocada. 

A seguir, você verá a utilização des- 
ses comandos em um programa. 


10 PMODE 4,1 


20 DIM C(5),B1(5),B2(5) 
30 PCLS 











40 CIRCLE (7,7),7,1:PAINT (7,7) 
l,1 

50 GET (0,0)-(14,14),€,6 

60 PUT (0,0)-(14,14),C,NOT 

70 GET (0,0)-(14,14),B2,6 

80 PCLSI:SCREEN 1,0 

90 LINE(8,191)-(104,0), PRESET:L 
INE (24,191)-(120,0),PRESET:PAIN 
T(10,191) 10,0 

100 LINE (104,191)-(200,0),PRES 
ET:LINE(120,191)-(216,0),PRESET 
: PAINT(110,191),0,0 


110 FOR K=175 TO O STEP -10 

120 X=14+(175-K)/2 

130 PUT (X,K)-(X+14,K+14),C,0R 
140 PUT(X+96,K)-(X+110,K+14),€C, 
OR 

150 FOR J=1 TO 100:NEXT 

160 PUT(X,K)-(X+14,K+14),BL,PSE 
T 

170 PUT(X+96,K)-(X+110,K+14),B2 
+ AND 

180 NEXT 

190 GoTo BO 


Se observarmos bem as duas bolas 
subindo pela tela, veremos que sobram 
“pontas” ao longo das faixas pretas. Is- 
so acontece porque estamos tentando 
colocar um gráfico retangular dentro de 
um inclinado e, cada vez que o progra- 
ma introduz um quadrado preto (lacu- 
na) para “apagar”' a posição anterior da 
bola, as “pontas” aparecem, 

Com a bola que caminha pela faixa 
da direita não ocorre esse problema. 
Usando uma combinação de PUT..., 
AND e PUT...,OR, as pontas são eli- 
minadas. A linha 60 inverte a bola na 
tela e, depois, a linha 70 armazena-a na 
memória. Quando o programa movi- 
menta a bola, a linha 140 coloca uma 
lacuna sobre a faixa com um 
PUT...,OR, de maneira que a bola an- 
terior seja apagada por uma “figura” 
de formato exatamente igual ao dela. 
Em seguida, um PUT...,AND coloca na 
tela a bola invertida. A combinação de 
NOT com AND permite que a linha 170 
introduza a bola na tela sem super- 
posição. 

Se você quiser colocar um gráfico 
na tela, num espaço que não seja re- 
tangular (um círculo num triângulo, 
por exemplo), desenhe primeiro o ob- 
jeto. Coloque-o de volta à tela com 
PUT...,NOT e “fotografe-o” (GET) 
numa matriz. Mais tarde, para mostrar 
o gráfico na tela, use PUT...,AND. 


QUANDO NÃO USAR O G 





Dissemos anteriormente que, em cer- 
tos casos, pode-se omitir o G do final 
do comando GET. Para saber quando 
omiti-lo, você precisa de algumas infor- 
mações sobre a tela do computador. 

Nos PMODE 1,3€e 4a tela gráfica 


é dividida em 32 colunas verticais, cada 
uma com oito pontos de largura, en- 
quanto que nos PMODE 0 e 2 a tela é 
dividida em dezesseis colunas de dezes- 
seis pontos de largura cada. Qualquer 
que seja o PMODE usado, a largura de 
cada coluna na tela corresponde a um 
byte na memória. 

Pode-se omitir o G do comando GET 
quando o gráfico desenhado ocupa um 
número determinado de colunas e se 
quer movimentá-lo. Sem o G, bytes 
inteiros são armazenados na matriz de- 
clarada. Se o gráfico sobrepuser parte 
de colunas, você precisará armazenar 
partes de bytes na matriz. Em outras 
palavras, será preciso, de alguma manei- 
ra, armazenar bits da tela na matriz — 
e é esta a função do G. 

Retirando o G, você terá problemas 
com gráficos que sobrepõem outras colu- 
nas. Além disso, não poderá usar PSET, 
PRESET, OR, AND ou NOT no PUT 
correspondente. A omissão do G, portan- 
to, torna menos flexível o uso do PUT, 


ANIMAÇÃO COM GET E PUT 





O GET e o PUT são especialmente 
úteis nos programas de animação gráfi- 
ca, Esta é feita, em geral, por meio de 
dois métodos. 

O primeiro deles consiste em usar 
uma matriz vazia (lacuna) para apagar 
o gráfico, antes de colocá-lo em outra 
posição na tela. Para evitar problemas, 
verifique antes se o tamanho da lacuna 
é o mesmo do gráfico. Esse procedimen- 
to já foi visto em vários artigos de Pro- 
gramação de Jogos. 

O segundo método, empregado na 
animação da bicicleta, utiliza uma mol- 
dura de pontos vazios ao redor do grá- 
fico. Depois que se decide quantos 
pontos o gráfico se moverá a cada pas- 
so, verifica-se se existe o mesmo núme- 
ro de fileiras de pontos rodeando o 
gráfico. Isso significa que o novo gráfi- 
co colocado na tela apaga o anterior. Se 
o gráfico se movesse para todas as dire- 
ções, quatro pontos a cada passo, por 
exemplo, precisariamos de uma moldu- 
ra com quatro pontos de largura 
rodeando-o. No caso da bicicleta, o grá- 
fico se move um ponto de cada vez, da 
esquerda para a direita somente. Assim, 
quando ele foi armazenado, deixamos 
uma simples fileira de pontos vazios em 
seu lado esquerdo. 

Como exercício, tente animar outros 
desenhos usando GET e PUT. A única 
maneira de entender e se familiarizar 
com o uso dos comandos PSET, PRE- 
SET, OR, AND e NOT é experimentá- 
los em diversos gráficos e situações. 
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NInnanNO PRÓXIMO NÚMEROS! 


PROGRAMAÇÃO BASIC 
O TK-2000 não dispõe da função INKEY$ . Veja como substituí-la. 


APLICAÇÕES 


Planeje UDG sem trabalho: deixe os cálculos para o computador. 


PROGRAMAÇÃO BASIC 


Os gráficos lineares são muito úteis à organização de 
informações numéricas. Aprenda a programá-los. 


PROGRAMAÇÃO BASIC 
Conheça o PRINT USING, poderoso comando auxiliar do PRINT. | 


PERIFÉRICOS 


Fitas e discos danificados podem produzir 
efeitos desastrosos. Cuide deles. 
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